home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / snobol4 / misc.lha / syntax.tbl < prev    next >
Text File  |  1993-07-24  |  4KB  |  189 lines
  1. BEGIN BIOPTB
  2. FOR(PLUS) PUT(ADDFN) GOTO(TBLKTB)
  3. FOR(MINUS) PUT(SUBFN) GOTO(TBLKTB)
  4. FOR(DOT) PUT(NAMFN) GOTO(TBLKTB)
  5. FOR(DOLLAR) PUT(DOLFN) GOTO(TBLKTB)
  6. FOR(STAR) PUT(MPYFN) GOTO(STARTB)
  7. FOR(SLASH) PUT(DIVFN) GOTO(TBLKTB)
  8. FOR(AT) PUT(BIATFN) GOTO(TBLKTB)
  9. FOR(POUND) PUT(BIPDFN) GOTO(TBLKTB)
  10. FOR(PERCENT) PUT(BIPRFN) GOTO(TBLKTB)
  11. FOR(RAISE) PUT(EXPFN) GOTO(TBLKTB)
  12. FOR(ORSYM) PUT(ORFN) GOTO(TBLKTB)
  13. FOR(KEYSYM) PUT(BIAMFN) GOTO(TBLKTB)
  14. FOR(NOTSYM) PUT(BINGFN) GOTO(TBLKTB)
  15. FOR(QUESYM) PUT(BIQSFN) GOTO(TBLKTB)
  16. ELSE ERROR
  17. END BIOPTB
  18.  
  19. BEGIN CARDTB
  20. FOR(CMT) PUT(CMTTYP) STOPSH
  21. FOR(CTL) PUT(CTLTYP) STOPSH
  22. FOR(CNT) PUT(CNTTYP) STOPSH
  23. ELSE PUT(NEWTYP) STOPSH
  24. END CARDTB
  25.  
  26. BEGIN DQLITB
  27. FOR(DQUOTE) STOP
  28. ELSE CONTIN
  29. END DQLITB
  30.  
  31. BEGIN ELEMTB
  32. FOR(NUMBER) PUT(ILITYP) GOTO(INTGTB)
  33. FOR(LETTER) PUT(VARTYP) GOTO(VARTB)
  34. FOR(SQUOTE) PUT(QLITYP) GOTO(SQLITB)
  35. FOR(DQUOTE) PUT(QLITYP) GOTO(DQLITB)
  36. FOR(LEFTPAREN) PUT(NSTTYP) STOP
  37. ELSE ERROR
  38. END ELEMTB
  39.  
  40. BEGIN EOSTB
  41. FOR(EOS) STOP
  42. ELSE CONTIN
  43. END EOSTB
  44.  
  45. BEGIN FLITB
  46. FOR(NUMBER) CONTIN
  47. FOR(TERMINATOR) STOPSH
  48. ELSE ERROR
  49. END FLITB
  50.  
  51. BEGIN FRWDTB
  52. FOR(BLANK) CONTIN
  53. FOR(EQUAL) PUT(EQTYP) STOP
  54. FOR(RIGHTPAREN) PUT(RPTYP) STOP
  55. FOR(RIGHTBR) PUT(RBTYP) STOP
  56. FOR(COMMA) PUT(CMATYP) STOP
  57. FOR(COLON) PUT(CLNTYP) STOP
  58. FOR(EOS) PUT(EOSTYP) STOP
  59. ELSE PUT(NBTYP) STOPSH
  60. END FRWDTB
  61.  
  62. BEGIN GOTFTB
  63. FOR(LEFTPAREN) PUT(FGOTYP) STOP
  64. FOR(LEFTBR) PUT(FTOTYP) STOP
  65. ELSE ERROR
  66. END GOTFTB
  67.  
  68. BEGIN GOTOTB
  69. FOR(SGOSYM) GOTO(GOTSTB)
  70. FOR(FGOSYM) GOTO(GOTFTB)
  71. FOR(LEFTPAREN) PUT(UGOTYP) STOP
  72. FOR(LEFTBR) PUT(UTOTYP) STOP
  73. ELSE ERROR
  74. END GOTOTB
  75.  
  76. BEGIN GOTSTB
  77. FOR(LEFTPAREN) PUT(SGOTYP) STOP
  78. FOR(LEFTBR) PUT(STOTYP) STOP
  79. ELSE ERROR
  80. END GOTSTB
  81.  
  82. BEGIN IBLKTB
  83. FOR(BLANK) GOTO(FRWDTB)
  84. FOR(EOS) PUT(EOSTYP) STOP
  85. ELSE ERROR
  86. END IBLKTB
  87.  
  88. BEGIN INTGTB
  89. FOR(NUMBER) CONTIN
  90. FOR(TERMINATOR) PUT(ILITYP) STOPSH
  91. FOR(DOT) PUT(FLITYP) GOTO(FLITB)
  92. ELSE ERROR
  93. END INTGTB
  94.  
  95. BEGIN LBLTB
  96. FOR(ALPHANUMERIC) GOTO(LBLXTB)
  97. FOR(BLANK,EOS) STOPSH
  98. ELSE ERROR
  99. END LBLTB
  100.  
  101. BEGIN LBLXTB
  102. FOR(BLANK,EOS) STOPSH
  103. ELSE CONTIN
  104. END LBLXTB
  105.  
  106. BEGIN NBLKTB
  107. FOR(TERMINATOR) ERROR
  108. ELSE STOPSH
  109. END NBLKTB
  110.  
  111. BEGIN NUMBTB
  112. FOR(NUMBER) GOTO(NUMCTB)
  113. FOR(PLUS,MINUS) GOTO(NUMCTB)
  114. FOR(COMMA) PUT(CMATYP) STOPSH
  115. FOR(COLON) PUT(DIMTYP) STOPSH
  116. ELSE ERROR
  117. END NUMBTB
  118.  
  119. BEGIN NUMCTB
  120. FOR(NUMBER) CONTIN
  121. FOR(COMMA) PUT(CMATYP) STOPSH
  122. FOR(COLON) PUT(DIMTYP) STOPSH
  123. ELSE ERROR
  124. END NUMCTB
  125.  
  126. BEGIN SNABTB
  127. FOR(FGOSYM) STOP
  128. FOR(SGOSYM) STOPSH
  129. ELSE ERROR
  130. END SNABTB
  131.  
  132. BEGIN SQLITB
  133. FOR(SQUOTE) STOP
  134. ELSE CONTIN
  135. END SQLITB
  136.  
  137. BEGIN STARTB
  138. FOR(BLANK) STOP
  139. FOR(STAR) PUT(EXPFN) GOTO(TBLKTB)
  140. ELSE ERROR
  141. END STARTB
  142.  
  143. BEGIN TBLKTB
  144. FOR(BLANK) STOP
  145. ELSE ERROR
  146. END TBLKTB
  147.  
  148. BEGIN UNOPTB
  149. FOR(PLUS) PUT(PLSFN) GOTO(NBLKTB)
  150. FOR(MINUS) PUT(MNSFN) GOTO(NBLKTB)
  151. FOR(DOT) PUT(DOTFN) GOTO(NBLKTB)
  152. FOR(DOLLAR) PUT(INDFN) GOTO(NBLKTB)
  153. FOR(STAR) PUT(STRFN) GOTO(NBLKTB)
  154. FOR(SLASH) PUT(SLHFN) GOTO(NBLKTB)
  155. FOR(PERCENT) PUT(PRFN) GOTO(NBLKTB)
  156. FOR(AT) PUT(ATFN) GOTO(NBLKTB)
  157. FOR(POUND) PUT(PDFN) GOTO(NBLKTB)
  158. FOR(KEYSYM) PUT(KEYFN) GOTO(NBLKTB)
  159. FOR(NOTSYM) PUT(NEGFN) GOTO(NBLKTB)
  160. FOR(ORSYM) PUT(BARFN) GOTO(NBLKTB)
  161. FOR(QUESYM) PUT(QUESFN) GOTO(NBLKTB)
  162. FOR(RAISE) PUT(AROWFN) GOTO(NBLKTB)
  163. ELSE ERROR
  164. END UNOPTB
  165.  
  166. BEGIN VARATB
  167. FOR(LETTER) GOTO(VARBTB)
  168. FOR(COMMA) PUT(CMATYP) STOPSH
  169. FOR(RIGHTPAREN) PUT(RPTYP) STOPSH
  170. ELSE ERROR
  171. END VARATB
  172.  
  173. BEGIN VARBTB
  174. FOR(ALPHANUMERIC,BREAK) CONTIN
  175. FOR(LEFTPAREN) PUT(LPTYP) STOPSH
  176. FOR(COMMA) PUT(CMATYP) STOPSH
  177. FOR(RIGHTPAREN) PUT(RPTYP) STOPSH
  178. ELSE ERROR
  179. END VARBTB
  180.  
  181. BEGIN VARTB
  182. FOR(ALPHANUMERIC,BREAK) CONTIN
  183. FOR(TERMINATOR) PUT(VARTYP) STOPSH
  184. FOR(LEFTPAREN) PUT(FNCTYP) STOP
  185. FOR(LEFTBR) PUT(ARYTYP) STOP
  186. ELSE ERROR
  187. END VARTB
  188.  
  189.